home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmCT_501_EachWindow < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.2 KB  |  57 lines
  1. %case sourcefile%
  2.     %if not windname = Clipboard%
  3.         %genfile zWindow z+windname%
  4.         %if not fileExists windname%
  5.             %genfile Window windname%
  6.         %endif%
  7.     %endif%
  8. %case include%
  9.     %if not windname = Clipboard%
  10.         #include "%windname%.h"
  11.     %endif%
  12. %case instance%
  13.     %if not windname = Clipboard%
  14.         C%windname%            *its%windname%;
  15.         %if not firstWindow%
  16.             %multiWindow%
  17.         %endif%
  18.     %endif%
  19. %case initNil%
  20.     %if not windname = Clipboard%
  21.         its%windname% = NULL;
  22.         %if not firstWindow%
  23.             %multiWindow%
  24.         %endif%
  25.     %endif%
  26. %case dispose%
  27.     %if not windname = Clipboard%
  28.         if (its%windname% != NULL) {
  29.             its%windname%->Dispose ();
  30.         }
  31.     %endif%
  32. %case closeWind%
  33.     %if not windname = Clipboard%
  34.         %if firstWindow%
  35.             if (theWindow == its%windname%) {
  36.                 inherited::CloseWind (theWindow);
  37.         %else%
  38.             } else if (theWindow = its%windname%) {
  39.                 its%windname%->Dispose ();
  40.                 its%windname% = NULL;
  41.                 itsWindow = NULL;
  42.         %endif%
  43.     %endif%
  44. %case create%
  45.     %if not windname = Clipboard%
  46.         its%windname% = new (C%windname%);
  47.         its%windname%->I%windname% (this);
  48.         %if has growBox%
  49.             gDecorator->PlaceNewWindow (its%windname%);
  50.         %endif%
  51.         %if firstWindow%
  52.             itsMainPane = its%windname%->itsMainPane;
  53.             itsWindow = its%windname%;
  54.         %endif%
  55.  
  56.     %endif%
  57.